home *** CD-ROM | disk | FTP | other *** search
/ s-gikan2.maizuru-ct.ac.jp / s-gikan2.maizuru-ct.ac.jp.zip / s-gikan2.maizuru-ct.ac.jp / pub / ncvc352_install.exe / {app} / scripts / transpose_macro_set / remove_debug_comment.pl < prev    next >
Perl Script  |  2004-05-27  |  251b  |  12 lines
  1. #! /usr/bin/perl
  2.  
  3. #  (^^ üA(---é┼Äné▄éΘìsé≡ìφÅ£é╖éΘâXâNâèâvâg  #
  4.  
  5. ($pre_file,$out_file)= ($ARGV[0],$ARGV[1]);
  6. open(IN,$pre_file);
  7. open(OUT,">$out_file");
  8. while(<IN>){
  9.     if(!/^\(\-\-\-/ and !/^\(\^\^\s/){ print OUT; }
  10. }
  11. close(OUT);
  12. close(IN);